home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 September / 1994-09b.d64 / dir reader (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  53 lines
  1. 10 rem copyright 1994 - compute publications inc. - all rights reserved
  2. 20 print"[147][159][196]irectory [210]eader[146] - [199]azette  1994"chr$(9)chr$(14)
  3. 30 print"[197]nter starting address for reader code":poke53280,14:poke53281,6
  4. 40 print"to begin at:"
  5. 50 inputsa$:ifsa$=""thenend
  6. 60 sa=val(sa$)
  7. 70 print"[211]tarting address:"sa
  8. 80 print"[201]nsert a disk for directory reader to"
  9. 90 print"create the machine language code on,"
  10. 100 print"and press return."
  11. 110 geta$:ifa$=chr$(13)then130
  12. 120 goto110
  13. 130 print"[195]hecking disk..."
  14. 140 open15,8,15,"i0":gosub1000
  15. 150 print"[208]lease enter filename for reader code:"
  16. 160 inputff$:ifff$=""thenclose15:end
  17. 170 iflen(ff$)>16thenff$=left$(ff$,16)
  18. 180 print"[198]ilename: "ff$
  19. 190 print"[208]lease wait, saving code to disk..."
  20. 200 gosub2000
  21. 210 print"[196]one!":close8:close15
  22. 220 end
  23. 1000 input#15,x,w$,y,z:ifx=0thenreturn
  24. 1010 close8:close15
  25. 1020 print"[196]isk error:[146]"x;w$;y;z
  26. 1030 end
  27. 2000 open8,8,8,"0:"+ff$+",p,w":gosub1000
  28. 2005 ah=int(sa/256):al=sa-(ah*256)
  29. 2007 print#8,chr$(al)chr$(ah);
  30. 2010 reada
  31. 2020 ifa>-1thenprint#8,chr$(a);:goto2010
  32. 2030 ifa=-1thenclose8:close15:return
  33. 2040 a=abs(a)
  34. 2050 ad=sa+a
  35. 2060 ah=int(ad/256):al=ad-(ah*256)
  36. 2070 print#8,chr$(al)chr$(ah);:goto2010
  37. 3000 data 162,1,32,198,255,32,165,255,32,165,255,32,165,255,32,165,255,240
  38. 3010 data 74,32,165,255,170,32,165,255,32,-102,173,-229,201,48,240,6
  39. 3020 data 32,210,255,76,-49,173,-230,201,48,240,6,173,-230,32,210,255
  40. 3030 data 173,-231,32,210,255,169,32,32,210,255,32,165,255,240,14,32,210
  41. 3040 data 255,165,198,240,244,32,-232,144,239,176,8,169,13,32,210,255,76
  42. 3050 data -11,32,204,255,169,1,32,195,255,96,72,169,48,141,-229,141,-230
  43. 3060 data 138,201,100,144,7,233,100,238,-229,208,245,201,10,144,7,233
  44. 3070 data 10,238,-230,208,245,9,48,141,-231,104,240,86,201,2,240,27,169
  45. 3080 data 2,24,109,-229,141,-229,169,5,109,-230,141,-230,169,6
  46. 3090 data 109,-231,141,-231,208,25,169,5,24,109,-229,141,-229,169
  47. 3100 data 1,109,-230,141,-230,169,2,109,-231,141,-231,173,-231
  48. 3110 data 201,58,144,8,233,10,141,-231,238,-230,173,-230,201,58,144
  49. 3120 data 8,233,10,141,-230,238,-229,96,0,0,0,32,180,229,201,83,240,23
  50. 3130 data 201,80,240,2,24,96,165,198,240,252,32,180,229,201,83,240,6,201,80
  51. 3140 data 240,239,208,239,56,96
  52. 3150 data -1
  53.